!-------------------------------------------------
! $Id: x2y2model.shar,v 1.2 2011/05/14 21:34:35 daw Exp $
! Description: sets precision (for improved portability)
! Author:  Murray S. Daw <daw@clemson.edu>
! Created: 13 apr 04
!-------------------------------------------------

MODULE prec
  IMPLICIT NONE
  INTEGER, PARAMETER :: r8 = SELECTED_REAL_KIND(10)
  INTEGER, PARAMETER :: i4 = SELECTED_INT_KIND(10)
  INTEGER, PARAMETER :: i12 = SELECTED_INT_KIND(12)
END MODULE prec

      
